home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Me-Mz / Meso.cpt / Mesopotamia 0.9 / card_18419.txt < prev    next >
Text File  |  1987-12-05  |  2KB  |  91 lines
  1. -- card: 18419 from stack: in.9
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 16394
  5. -- name: ham6
  6.  
  7.  
  8. -- part 3 (field)
  9. -- low flags: 80
  10. -- high flags: 0004
  11. -- rect: left=169 top=214 right=243 bottom=238
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 9
  17. -- style flags: 0
  18. -- line height: 12
  19. -- part name: silly
  20.  
  21.  
  22. -- part 6 (button)
  23. -- low flags: 00
  24. -- high flags: 0000
  25. -- rect: left=344 top=288 right=324 bottom=379
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: right dogear
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   -- this script handles a diagonally divided button, intended to be
  37.   --  a right dogear
  38.   put (item 1 of the clickLoc) - (item 1 of the rect of the target) into x
  39.   put (item 4 of the rect of the target) - (item 2 of the clickLoc) into y
  40.   if (x < y) then              -- click is in upper left
  41.     visual effect wipe left
  42.     play "click"
  43.     go card "ham1"
  44.   else
  45.     visual effect wipe right
  46.     play "click"
  47.     go previous
  48.   end if
  49. end mouseUp
  50.  
  51.  
  52.  
  53. -- part 7 (button)
  54. -- low flags: 00
  55. -- high flags: 0000
  56. -- rect: left=462 top=306 right=340 bottom=508
  57. -- title width / last selected line: 0
  58. -- icon id / first selected line: 24317 / 24317
  59. -- text alignment: 1
  60. -- font id: 0
  61. -- text size: 12
  62. -- style flags: 0
  63. -- line height: 16
  64. -- part name: Go first
  65. ----- HyperTalk script -----
  66. on mouseUp
  67.   set lockscreen to true
  68.   go card "tline"
  69.   hide background field "one"
  70.   hide background field "two"
  71.   hide background field "three"
  72.   hide background field "four"
  73.   set lockscreen to false
  74.   visual effect dissolve
  75.  
  76.   go to card "tline"
  77. end mouseUp
  78.  
  79.  
  80.  
  81.  
  82. -- part contents for card part 3
  83. ----- text -----
  84. No, the other dogear!
  85.  
  86. -- part contents for background part 1
  87. ----- text -----
  88.  
  89.  
  90.  
  91. If a veterinarian performs a major operation on an ox or an ass and has saved its live, the owner shall pay one-sixth of a shekel of silver.  If the veterinarian has caused the animal's death, he shall give the owner one-fourth of its value.